home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ AOL IM 1.xpl < prev    next >
Text File  |  2000-08-07  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="\Internet\Instant Messaging\AOL IM\"
  5. "NAME"="AOL IM URL Settings"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.22"
  8. "TEXT 1"="Default Server"
  9. "TEXT 2"="Default Port"
  10. "TEXT 3"="Second Server"
  11. "TEXT 4"="Second Port"
  12. "DESCRIPTION 1"="You can use this plug-in to change the options for AOL Instant Messenger (AIM) as well as CompuServe Instant Messenger (CSIM)."
  13. "DESCRIPTION 2"="This plug-in allows you to enter a custom server and port setting to use for logging onto the AOL Instant Messenger service."
  14. "DESCRIPTION 3"="The default values are "login.oscar.aol.com" for Server/Default Server, and "5190" for Port/Default Port."
  15. "DESCRIPTION 4"="AOL Instant Messenger can be obtained at http://www.aol.com/aim/."
  16. "DESCRIPTION 4"="CompuServe Instant Messenger can be obtained at http://www.compuserve.com/csim/."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=" "
  21. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  22.  
  23.  
  24. sPath="HKCU\Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Server\"
  25. sV1="DefaultHost"
  26. sV2="DefaultPort"
  27. sV3="Host"
  28. sV4="Port"
  29.  
  30. Sub Plugin_Initialize 
  31.  if RegPathExists(sPath) then
  32.     s=RegReadValue(sPath & sV1)
  33.     SetUIElement 1,s
  34.  
  35.     s=RegReadValue(sPath & sV2)
  36.     SetUIElement 2,s
  37.  
  38.     s=RegReadValue(sPath & sV3)
  39.     SetUIElement 3,s
  40.  
  41.     s=RegReadValue(sPath & sV4)
  42.     SetUIElement 4,s
  43.  else
  44.     Disable
  45.  end if
  46. End Sub
  47.  
  48.  
  49. Sub Plugin_CheckData(ElementIndex)
  50. End Sub
  51.  
  52.  
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  s=GetUIElement(1)
  56.  Call RegWriteValue(sPath & sV1,s,1)
  57.  
  58.  s=GetUIElement(2)
  59.  Call RegWriteValue(sPath & sV2,s,1)
  60.  
  61.  s=GetUIElement(3)
  62.  Call RegWriteValue(sPath & sV3,s,1)
  63.  
  64.  s=GetUIElement(4)
  65.  Call RegWriteValue(sPath & sV4,s,1)
  66. End Sub
  67.  
  68.  
  69. Sub Plugin_Terminate 
  70. End Sub
  71.  
  72.  
  73.  
  74.